home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / pcmagv6.arc / BLOAD.SCR next >
Encoding:
Text File  |  1987-06-22  |  968 b   |  31 lines
  1. N      BLOAD.COM
  2. A
  3. XOR    BH,BH
  4. MOV    BL,[80]               ;Get argument length.
  5. MOV    Byte Ptr [BX+81],0    ;Convert argument to ASCIIZ.
  6. MOV    DX,82
  7. MOV    AX,3D00               ;Open file for reading.
  8. INT    21
  9. JB     13E                   ;Exit if not found.
  10. MOV    BX,AX                 ;Else, filehandle in BX.
  11. MOV    AX,40
  12. MOV    DS,AX                 ;BIOS data segment.
  13. MOV    AX,B000               ;Monochrome buffer address.
  14. MOV    CX,1000               ;4K buffer.
  15. CMP    Word Ptr [63],3B4     ;Is it monochrome?
  16. JZ     131                   ;If yes, skip around.
  17. ADD    AX,800                ;Else, CGA buffer address.
  18. ADD    CX,3000               ;16K buffer.
  19. MOV    DS,AX                 ;Point to segment.
  20. MOV    DX,0                  ;Point to Offset.
  21. MOV    AH,3F                 ;Read in file image.
  22. INT    21
  23. MOV    AH,3E                 ;Close file.
  24. INT    21
  25. INT    20                    ;Terminate.
  26.  
  27. RCX
  28. 40
  29. W
  30. Q
  31.